home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1993-06-05 | 29.1 KB | 526 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
- #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
- (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX
- CONS DOUBLE-FLOAT FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST
- LONG-FLOAT NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL
- READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY SIMPLE-BIT-VECTOR
- SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING
- STRING-CHAR SYMBOL T VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE
- LAMBDA-LIST-KEYWORDS LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT
- MULTIPLE-VALUES-LIMIT PI BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1
- BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR
- BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM
- MOST-NEGATIVE-FIXNUM MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT
- LEAST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT
- MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
- LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
- MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
- LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
- MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT
- LEAST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT SHORT-FLOAT-EPSILON
- SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON LONG-FLOAT-EPSILON
- SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON
- DOUBLE-FLOAT-NEGATIVE-EPSILON LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT
- CHAR-FONT-LIMIT CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT
- CHAR-SUPER-BIT CHAR-HYPER-BIT ARRAY-RANK-LIMIT ARRAY-DIMENSION-LIMIT
- ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
- *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK* + ++ +++ - * **
- *** / // /// *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT* *QUERY-IO*
- *DEBUG-IO* *TERMINAL-IO* *TRACE-OUTPUT* *READ-BASE* *READ-SUPPRESS*
- *READTABLE* *PRINT-ESCAPE* *PRINT-PRETTY* *PRINT-CIRCLE* *PRINT-BASE*
- *PRINT-RADIX* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL* *PRINT-LENGTH*
- *PRINT-ARRAY* *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS*
- *LOAD-PATHS* *LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO* *BREAK-ON-WARNINGS*
- *FEATURES* COERCE TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL
- SYMBOLP ATOM CONSP LISTP NUMBERP INTEGERP RATIONALP FLOATP REALP COMPLEXP
- CHARACTERP STRINGP BIT-VECTOR-P VECTORP SIMPLE-VECTOR-P SIMPLE-STRING-P
- SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP COMPILED-FUNCTION-P COMMONP
- EQ EQL EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION BOUNDP FBOUNDP
- SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD
- GET-SETF-METHOD-MULTIPLE-VALUE APPLY FUNCALL MAPCAR MAPLIST MAPC MAPL
- MAPCAN MAPCON VALUES VALUES-LIST MACRO-FUNCTION MACROEXPAND MACROEXPAND-1
- PROCLAIM GET REMPROP SYMBOL-PLIST GETF GET-PROPERTIES SYMBOL-NAME
- MAKE-SYMBOL COPY-SYMBOL GENSYM GENTEMP SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE
- IN-PACKAGE FIND-PACKAGE PACKAGE-NAME PACKAGE-NICKNAMES RENAME-PACKAGE
- PACKAGE-USE-LIST PACKAGE-USED-BY-LIST PACKAGE-SHADOWING-SYMBOLS
- LIST-ALL-PACKAGES INTERN FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT
- SHADOWING-IMPORT SHADOW USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE
- REQUIRE ZEROP PLUSP MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1-
- CONJUGATE GCD LCM EXP EXPT LOG SQRT ISQRT ABS PHASE SIGNUM SIN COS TAN CIS
- ASIN ACOS ATAN SINH COSH TANH ASINH ACOSH ATANH FLOAT RATIONAL RATIONALIZE
- NUMERATOR DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING
- FTRUNCATE FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN
- FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART
- LOGIOR LOGXOR LOGAND LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1
- LOGORC2 LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE BYTE-SIZE
- BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM
- MAKE-RANDOM-STATE RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P
- STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P
- DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
- CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP
- CHAR-NOT-LESSP CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER
- CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT INT-CHAR CHAR-NAME NAME-CHAR
- CHAR-BIT SET-CHAR-BIT ELT SUBSEQ COPY-SEQ LENGTH REVERSE NREVERSE
- MAKE-SEQUENCE CONCATENATE MAP SOME EVERY NOTANY NOTEVERY REDUCE FILL
- REPLACE REMOVE REMOVE-IF REMOVE-IF-NOT DELETE DELETE-IF DELETE-IF-NOT
- REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE SUBSTITUTE-IF
- SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND
- FIND-IF FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF
- COUNT-IF-NOT MISMATCH SEARCH SORT STABLE-SORT MERGE CAR CDR CAAR CADR CDAR
- CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR CDDDR CAAAAR CAAADR CAADAR
- CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR CDDAAR
- CDDADR CDDDAR CDDDDR CONS TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND
- THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST
- LIST* MAKE-LIST APPEND COPY-LIST COPY-ALIST COPY-TREE REVAPPEND NCONC
- NRECONC BUTLAST NBUTLAST LDIFF RPLACA RPLACD SUBST SUBST-IF SUBST-IF-NOT
- NSUBST NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP
- ADJOIN UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE
- NSET-DIFFERENCE SET-EXCLUSIVE-OR NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS
- ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF RASSOC-IF-NOT MAKE-HASH-TABLE
- HASH-TABLE-P GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT SXHASH
- MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
- ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX
- ADJUSTABLE-ARRAY-P BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND
- BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2 BIT-NOT
- ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND
- VECTOR-POP ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING>
- STRING<= STRING>= STRING/= STRING-LESSP STRING-GREATERP STRING-NOT-GREATERP
- STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING STRING-TRIM STRING-LEFT-TRIM
- STRING-RIGHT-TRIM STRING-UPCASE STRING-DOWNCASE STRING-CAPITALIZE
- NSTRING-UPCASE NSTRING-DOWNCASE NSTRING-CAPITALIZE STRING EVAL EVALHOOK
- APPLYHOOK CONSTANTP MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM
- MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM MAKE-ECHO-STREAM
- MAKE-STRING-INPUT-STREAM MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING
- STREAMP INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE
- INTERACTIVE-STREAM-P CLOSE COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR
- SET-MACRO-CHARACTER GET-MACRO-CHARACTER MAKE-DISPATCH-MACRO-CHARACTER
- SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READ
- READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR
- UNREAD-CHAR PEEK-CHAR LISTEN READ-CHAR-NO-HANG CLEAR-INPUT READ-FROM-STRING
- PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT PRINC WRITE-TO-STRING
- PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING WRITE-LINE TERPRI
- FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT WRITE-BYTE FORMAT
- Y-OR-N-P YES-OR-NO-P PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES
- MAKE-PATHNAME PATHNAMEP PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
- PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING FILE-NAMESTRING
- DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING
- USER-HOMEDIR-PATHNAME OPEN RENAME-FILE DELETE-FILE PROBE-FILE
- FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH LOAD DIRECTORY ERROR
- CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE DOCUMENTATION VARIABLE
- STRUCTURE TYPE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST
- GET-DECODED-TIME GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME
- ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME SLEEP
- LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
- MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION
- SHORT-SITE-NAME LONG-SITE-NAME IDENTITY EVAL-WHEN QUOTE FUNCTION SETQ PROGN
- LET LET* COMPILER-LET PROGV FLET LABELS MACROLET IF BLOCK RETURN-FROM
- TAGBODY GO MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH UNWIND-PROTECT
- THROW DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER
- DEFCONSTANT AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO
- DEFSETF DEFINE-SETF-METHOD PROG1 PROG2 WHEN UNLESS COND CASE TYPECASE
- OTHERWISE RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG* MULTIPLE-VALUE-LIST
- MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ DEFMACRO LOCALLY REMF DO-SYMBOLS
- DO-EXTERNAL-SYMBOLS DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP DEFSTRUCT
- WITH-OPEN-STREAM WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING
- WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE CTYPECASE ECASE CCASE TRACE
- UNTRACE STEP TIME EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION INLINE
- NOTINLINE IGNORE OPTIMIZE SPEED SPACE SAFETY COMPILATION-SPEED DECLARATION
- COMPILE INTERPRETER COMPILER
- ))
- #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D4 D5 30 97 19 01)
- LAMBDA-LIST-KEYWORDS
- (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
- )
- #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
- #.LAMBDA-LIST-KEYWORDS
- )
- #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) EXIT
- #.#'SYSTEM::%EXIT
- )
- #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) QUIT
- #.#'SYSTEM::%EXIT
- )
- #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01) BYE
- #.#'SYSTEM::%EXIT
- )
- #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
- (EXIT QUIT BYE)
- )
- #Y(#:TOP-LEVEL-FORM-9 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01)
- (SPECIAL *FEATURES*)
- )
- #Y(#:TOP-LEVEL-FORM-10 #14Y(00 00 00 00 00 01 63 00 36 01 30 01 19 01)
- *FEATURES*
- )
- #Y(#:TOP-LEVEL-FORM-11 #14Y(00 00 00 00 00 01 63 00 36 01 2F FF 19 01)
- *FEATURES*
- )
- #Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 D4 D5 36 01 30 07 19 01) "SYSTEM"
- ("SYS" "COMPILER")
- )
- #Y(#:TOP-LEVEL-FORM-13 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
- #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
- #Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D4 D5 30 96 19 01)
- REMOVE-OLD-DEFINITIONS
- #Y(REMOVE-OLD-DEFINITIONS
- #106Y(00 01 00 00 00 02 A9 83 55 80 45 A9 83 54 04 A9 84 5C 13 A9 6A 9E
- 89 00 3B 16 01 1C 09 D6 D7 AB 67 04 AC 2B 04 05 A9 2F 58 A9 DA 30
- 9D A9 DB 36 01 86 98 06 A9 DC 5B 2B 03 09 A9 DE 36 01 86 98 05 A9
- DE 5C 30 9C A9 DF 36 01 85 98 14 00 19 02 D4 AA 5A 01 14 69 F5 D5
- 30 29 16 01 1C 48 1A FF BC E0 AA 2E 0D A9 2D 0E 19 02
- )
- "~S is a special form and may not be redefined." "LISP"
- "The old definition will be lost" "Redefining the COMMON LISP ~A ~S"
- FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
- %SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
- "DEFUN/DEFMACRO: redefining ~S; it was traced!" WARN UNTRACE2
- ) )
- #Y(#:TOP-LEVEL-FORM-16
- #174Y(00 00 00 00 00 01 D4 2F 5F D5 2F F4 0F 02 D7 2F 5F D8 2D 05 D8 DA 30
- 96 DB 2D 05 DB DC 30 96 DD 2D 05 DD DE 30 96 DF 2D 05 DF E0 30 96 E1
- 2D 05 E1 E2 30 96 E3 2D 05 E3 E4 30 96 E5 2D 05 E5 E6 30 96 E7 2D 05
- E7 E8 30 96 E9 2D 05 E9 5D 16 30 96 5D 17 2D 05 5D 17 5D 18 30 96 5D
- 19 2D 05 5D 19 5D 1A 30 96 5D 1B 2D 05 5D 1B 5D 1C 30 96 5D 1D 2D 05
- 5D 1D 5D 1E 30 96 5D 1F 2D 05 5D 1F 5D 20 30 96 5D 21 2D 05 5D 21 5D
- 22 30 96 5D 23 2D 05 5D 23 5D 24 30 96 5D 25 2D 05 5D 25 5D 26 30 96
- 5D 27 2D 05 5D 27 5D 28 30 96 3A 19 01
- )
- (SPECIAL *KEYWORD-PACKAGE*) "KEYWORD" *KEYWORD-PACKAGE* (SPECIAL *FENV*)
- FENV-ASSOC REMOVE-OLD-DEFINITIONS
- #Y(FENV-ASSOC
- #65Y(00 02 00 00 00 03 8A 01 35 14 85 4A 04 D6 AA 5A 01 A9 6A 63 6A AC D4
- 1A 13 AB A9 30 AB 57 19 05 AC AC 94 57 21 73 D5 A9 79 02 33 00 A8 AA
- 88 01 2B 6E AC AC 94 57 14 27 02 07 00 89 01 4B 02 19 03
- )
- 0. 2. "~S is an invalid function environment"
- )
- %EXPAND-CONS
- #Y(%EXPAND-CONS
- #25Y(00 05 00 00 00 06 89 03 0A 89 01 07 AD 00 14 3C 02 19 06 AC 95 72 02
- 1A 75
- ) )
- %EXPAND-FORM
- #Y(%EXPAND-FORM
- #780Y(00 01 00 00 00 02 93 1F 2B 8B 01 A8 86 2D 82 F2 A8 63 00 68 01 A8
- 02 21 21 A8 85 33 04 89 00 82 A9 8F 03 41 AC 05 00 01 14 5B 05 00
- 03 71 2D 04 3D 42 19 04 A9 5B 3C 02 19 02 93 25 02 82 7D AB 00 1A
- 82 9C C5 1A 2B 92 1F 05 8B 00 23 06 75 DD C6 1A 82 95 8F 03 41 AC
- D9 5B 05 00 03 54 54 20 80 56 05 00 03 54 53 20 36 05 00 03 54 70
- 85 2D 0D C8 14 DC 5F 00 03 05 00 03 54 70 5A 03 05 00 03 54 70 63
- 00 68 01 A8 02 21 08 A8 85 33 04 89 00 FF B4 05 00 03 71 5B 3C 02
- 16 01 1A FF 91 8F 03 41 05 01 03 71 05 01 03 54 70 2D 0B 3D 05 01
- 03 54 71 5B 42 1A FF 78 8F 03 41 05 01 03 71 05 01 03 54 70 5B 8F
- 03 41 05 02 03 54 71 05 02 03 54 54 70 2D 0B 3D 05 02 03 54 54 71
- 5B 42 1A 80 52 E1 E2 E3 98 54 54 72 2F 60 3F 14 73 02 59 02 1A 81
- EB E0 96 54 70 36 03 83 DC 65 8F 03 41 AC 05 00 03 70 5B 8F 03 41
- 05 01 03 71 05 01 03 54 70 5B 1A 18 8F 03 41 AC 05 00 03 70 5B 8F
- 03 41 05 01 03 71 05 01 03 54 70 2D 10 3D 05 01 03 54 71 2D 04 3D
- 42 1A FE F8 90 11 96 54 70 6B 00 17 90 12 97 54 70 31 00 17 13 E3
- 05 00 03 54 54 72 64 FE B3 5C 3C 02 11 18 01 19 04 8F 03 41 AC 05
- 00 03 70 5B 05 00 03 71 2D 13 1A FE C3 8F 03 41 AE 05 00 05 70 5B
- 8F 03 41 05 01 05 71 05 01 05 54 70 5B 5F 01 01 5F 01 00 42 3D 42
- 19 06 93 1A 1C 93 53 1A 18 95 54 71 2D 04 3E 02 97 54 70 AA 81 14
- 4A 93 1F 68 93 54 1C 67 E3 94 55 14 5C 3C 02 19 06 8F 03 41 AC 05
- 00 03 70 5B 05 00 03 71 2D 15 1A FE 6B 8F 03 41 AC 05 00 03 70 5B
- 05 00 03 71 2D 16 1A FE 59 00 1A 81 03 95 54 53 1A 80 F9 95 54 1C
- 72 95 54 54 1C 71 8F 03 41 AC 05 00 03 53 1A FE 33 95 54 53 1C 39
- 95 54 70 67 17 8F 03 41 AD 05 00 04 70 5B 8F 03 41 05 01 04 71 05
- 01 04 54 70 2D 18 3D 5D 19 05 01 00 35 00 10 00 05 01 04 54 71 2D
- 04 11 3D 42 3D 42 19 05 95 54 53 1B 08 E3 96 54 54 55 1A 80 9F 95
- 54 70 67 17 5D 19 93 35 00 10 00 8F 03 41 B0 05 00 07 70 5B 8F 03
- 41 05 01 07 71 05 01 07 54 70 2D 18 3D 05 01 07 54 71 2D 04 3D 42
- 3D 42 11 19 05 95 54 70 5B 1A 29 5D 1B A9 5A 01 5D 1C AA 5A 01 8B
- 01 92 1F 71 8B 00 86 2D 6C 92 54 1F 68 DA A9 67 1A 2F 60 72 8B 01
- 95 55 55 EB 16 01 7A 01 93 20 5E 89 01 56 5D 19 63 00 94 72 30 65
- 35 00 10 00 E3 9B 54 54 72 64 FD 50 5C 3C 02 11 19 06 A9 83 55 FD
- 60 A9 77 5C 00 1C FD 59 1A 0A 92 1F 18 8B 00 24 06 13 92 54 14 AC
- 63 00 34 02 14 26 FD 28 14 02 14 3C 02 19 04 5D 1D 03 1E 14 63 00
- 5A 02 8F 03 41 AB 5F 00 00 2D 0B 3D 05 00 02 71 2D 04 3D 42 19 03
- 92 20 69 5D 1F 5D 1E AC 5A 02
- )
- *FENV* FENV-ASSOC
- #S(HASH-TABLE EQ (MACROLET . 560.) (LABELS . 497.) (FLET . 440.)
- (PROGN . 420.) (TAGBODY . 392.) (PSETQ . 374.) (SETQ . 374.)
- (BLOCK . 344.) (COND . 286.) (COMPILER-LET . 251.) (LET* . 215.)
- (LET . 215.) (EVAL-WHEN . 182.) (FUNCTION . 23.)
- (LOAD-TIME-VALUE . 2.) (DECLARE . 2.) (GO . 2.) (QUOTE . 2.)
- (DEFCONSTANT . 191.) (DEFPARAMETER . 191.) (DEFVAR . 191.)
- (MULTIPLE-VALUE-BIND . 191.) (MULTIPLE-VALUE-SETQ . 191.) (THE . 191.)
- (RETURN-FROM . 191.)
- )
- %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO
- "~S: ~S is illegal since ~S is a local macro" %EXPAND
- "~S: invalid function environment ~S"
- "~S: ~S is invalid since ~S is not a symbol" %EXPAND-LAMBDA COMPILE
- VALUES-LIST QUOTE PROGN %EXPAND-VARSPEZ %EXPAND-VARSPEC-VAR
- %EXPAND-VARSPEC-VAL %EXPAND-COND %RETURN-P %EXPAND-SETQLIST
- %EXPAND-TAGBODY %EXPAND-FUNDEFS-1 %EXPAND-FUNDEFS-2 #.#'VECTOR
- MAKE-MACRO-EXPANSION "illegal syntax in MACROLET: ~S"
- "code after MACROLET contains a dotted list, ending with ~S"
- "bad function environment occurred in ~S: ~S" %EXPAND-FORM
- "~S: invalid form ~S"
- )
- %EXPAND-LIST
- #Y(%EXPAND-LIST
- #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
- 71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
- )
- "code contains a dotted list, ending with ~S" %EXPAND-CONS %EXPAND-FORM
- )
- %EXPAND-LAMBDA
- #Y(%EXPAND-LAMBDA
- #32Y(00 01 00 00 00 02 8B 01 24 00 10 8F 03 41 AA D4 5B 05 00 01 71 2D 04
- 3D 42 19 02 D5 D6 AB 5A 02
- )
- LAMBDA "~S: ~S should be a lambda expression" %EXPAND-FORM %EXPAND-CONS
- %EXPAND-LAMBDABODY
- )
- %EXPAND-LAMBDABODY
- #Y(%EXPAND-LAMBDABODY
- #87Y(00 01 00 00 00 02 8C 01 92 1F 10 8B 00 A8 86 2B 06 8B 00 BE 52 1B 32
- 16 01 1B 38 8B 02 67 02 D4 D5 AD 73 02 73 02 8C 04 67 03 6B 02 1F 02
- 14 3C 02 19 03 8B 00 BF 52 16 03 1C 60 1A 16 8B 00 A8 85 2B 70 16 03
- 1C 54 1A 0A 8C 00 A8 85 2B 6E 16 02 1C 48 AA 00 1A 57
- )
- DECLARE SOURCE %EXPAND-LAMBDALIST %EXPAND-LIST
- )
- %EXPAND-LAMBDALIST
- #Y(%EXPAND-LAMBDALIST
- #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
- 71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
- )
- "lambda list must not end with the atom ~S" %EXPAND-CONS %EXPAND-PARSPEZ
- )
- %EXPAND-PARSPEZ
- #Y(%EXPAND-PARSPEZ
- #54Y(00 01 00 00 00 02 93 1F 27 93 54 1F 23 8F 00 41 AA 05 00 01 70 5B 8F
- 00 41 05 01 01 71 05 01 01 54 70 2D 01 3D 05 01 01 54 71 5B 42 3D 42
- 19 02 A9 5B 3C 02 19 02
- )
- %EXPAND-CONS %EXPAND-FORM
- )
- %EXPAND-VARSPEZ
- #Y(%EXPAND-VARSPEZ
- #43Y(00 01 00 00 00 02 93 1F 19 8F 01 41 AA 05 00 01 70 2D 02 3D 05 00 01
- 71 26 6C 3D 42 19 02 D4 AA 5A 01 89 01 79 01 02 3C 02 19 02
- )
- "variable list ends with the atom ~S" %EXPAND-CONS %EXPAND-PARSPEZ
- )
- %EXPAND-VARSPEC-VAR
- #Y(%EXPAND-VARSPEC-VAR #16Y(00 01 00 00 00 02 93 1F 04 93 53 19 02 93 19 02)
- )
- %EXPAND-VARSPEC-VAL
- #Y(%EXPAND-VARSPEC-VAL
- #19Y(00 01 00 00 00 02 93 1F 07 93 54 70 2F 60 19 02 00 19 02)
- )
- %EXPAND-COND
- #Y(%EXPAND-COND
- #36Y(00 01 00 00 00 02 93 1F 15 8F 00 41 AA 05 00 01 70 2D 01 3D 05 00 01
- 71 26 6C 3D 42 19 02 A9 5B 3C 02 19 02
- )
- %EXPAND-CONS %EXPAND-LIST
- )
- %RETURN-P
- #Y(%RETURN-P
- #66Y(00 02 00 00 00 03 93 1F 33 8B 01 92 1F 28 8B 00 24 00 06 92 54 70 96
- 21 26 92 53 1F 07 AB 8B 01 26 64 1B 1B 8B 00 24 01 06 92 54 70 96 21
- 07 AB 8C 01 26 52 1B 09 16 01 7A 01 1A 4A 00 19 03 02 19 04
- )
- RETURN-FROM BLOCK
- )
- %EXPAND-SETQLIST
- #Y(%EXPAND-SETQLIST
- #56Y(00 01 00 00 00 02 93 1F 29 93 54 1F 25 8F 00 41 AA 05 00 01 70 5B 8F
- 00 41 05 01 01 71 05 01 01 54 70 2D 01 3D 05 01 01 54 71 26 5A 3D 42
- 3D 42 19 02 A9 5B 3C 02 19 02
- )
- %EXPAND-CONS %EXPAND-FORM
- )
- %EXPAND-TAGBODY
- #Y(%EXPAND-TAGBODY
- #77Y(00 01 00 00 00 02 93 1F 21 93 53 1F 23 8B 01 2D 01 3E 02 93 1F 2D 8F
- 00 41 AC 5F 00 01 5F 00 00 05 00 03 71 26 60 3D 42 19 04 A9 5B 3C 02
- 19 02 8F 00 41 AA 05 00 01 70 5B 05 00 01 71 26 47 3D 42 19 02 8C 03
- 64 FF BE 5C 3C 02 19 04
- )
- %EXPAND-CONS %EXPAND-FORM
- )
- %EXPAND-FUNDEFS-1
- #Y(%EXPAND-FUNDEFS-1
- #52Y(00 01 00 00 00 02 93 1F 1E 8B 01 92 1F 22 8B 00 86 2D 1D 92 54 1F 19
- 8B 00 5B 8C 04 64 68 31 02 1F 19 03 D4 AA 5A 01 89 01 79 63 01 59 01
- 19 02 D6 A9 5A 01
- )
- "FLET/LABELS: code contains a dotted list, ending with ~S" *FENV*
- "illegal syntax in FLET/LABELS: ~S"
- )
- %EXPAND-FUNDEFS-2
- #Y(%EXPAND-FUNDEFS-2
- #51Y(00 01 00 00 00 02 93 1F 24 8B 01 8F 00 41 AB 8F 00 41 5F 01 00 05 01
- 00 70 5B 05 01 00 71 2D 01 3D 42 3D 05 00 02 71 26 5D 3D 42 19 03 A9
- 5B 3C 02 19 02
- )
- %EXPAND-CONS %EXPAND-LAMBDABODY
- )
- %EXPAND-LAMBDABODY-MAIN
- #Y(%EXPAND-LAMBDABODY-MAIN
- #15Y(00 02 00 00 00 03 93 10 00 AD 2D 01 11 19 03) *FENV*
- %EXPAND-LAMBDABODY
- ) )
- #Y(#:TOP-LEVEL-FORM-17
- #68Y(00 00 00 00 00 01 D4 2F 5F 00 0F 01 D6 2D 03 D6 D8 30 96 D9 2F 5F 02 0F
- 06 DB 2F 5F 00 0F 08 DD 2F 5F 00 0F 0A DF 2F 58 DF 2D 03 DF E0 30 96 E1
- E2 CD 72 30 96 E4 E2 CF 72 30 96 E6 E2 D1 72 30 96 3A 19 01
- )
- (SPECIAL *LOAD-PATHS*) *LOAD-PATHS* SEARCH-FILE REMOVE-OLD-DEFINITIONS
- #Y(SEARCH-FILE
- #49Y(00 02 00 00 00 03 5B AA 6A 64 1A 1B A8 59 01 1A 0D 8B 00 AD A9 36 01
- 6A 17 A8 85 1C 6F 00 EA AB 77 CB 02 16 01 7A 00 92 20 67 16 01 A8 2F
- CC 19 04
- ) )
- (SPECIAL *LOAD-VERBOSE*) *LOAD-VERBOSE* (SPECIAL *LOAD-PRINT*) *LOAD-PRINT*
- (SPECIAL *LOAD-ECHO*) *LOAD-ECHO* LOAD
- #Y(LOAD
- #257Y(00 01 00 00 80 1C 00 05 00 00 37 05 03 0E 05 EF 37 04 03 0E 06 EE
- 37 03 02 75 03 37 02 03 0E 07 EC 39 01 AE 85 3E 80 73 AE 78 0D 06
- 14 DC DD 36 01 5B 85 1F 15 AE DE 68 0B A8 83 B6 80 61 7E 00 07 14
- DC DD 36 02 30 1F 16 01 14 8A 00 80 AC 89 03 80 52 92 14 0E 0D 10
- 0D 0E 0E 10 0E 8A 0D 13 36 01 2F 91 E3 36 03 2F 8E B6 36 01 2F 89
- E4 36 03 2F 8E 4D 80 57 8A 0C 04 36 01 2F 91 B0 5B E5 36 01 69 79
- A8 E5 85 28 24 A8 85 30 28 8A 0C 28 A8 01 05 2B 06 12 14 34 00 1A
- 20 98 1A FF AB 00 16 01 1A FF A5 A8 63 0C 30 88 1A FF A7 16 01 50
- 8A 0D 3F 1A 2A 92 1A 5E A8 2F 60 EA 8A 0F 05 A8 36 01 2F 87 16 01
- 8A 0C FF B3 1A FF AC 5F 00 07 36 01 30 91 5F 00 06 36 01 30 91 4F
- 8A 0D 13 36 01 2F 91 E7 36 03 2F 8E B6 36 01 2F 89 E8 36 03 2F 8E
- 02 12 02 19 09 E9 B0 5A 01 89 04 79 00 19 08
- )
- :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE*
- *LOAD-PRINT* *LOAD-ECHO* :INPUT STRING-CHAR (#".LSP" #".FAS") SEARCH-FILE
- *STANDARD-OUTPUT* *PACKAGE* *READTABLE* ";; Loading file " " ..." "EOF"
- COMPILE-FORM ";; Loading of file " " is finished."
- "A file with name ~A does not exist"
- )
- DEFUN MACRO
- #Y(DEFUN
- #117Y(00 02 00 00 00 03 94 54 1F 1E 94 54 54 1F 19 94 54 70 95 54 54 70
- 96 54 54 71 AA 86 2D 0E AA 84 55 0D C1 14 D5 AC 5A 02 D4 D5 5A 01
- C0 1A 74 A8 5C AE 2F 64 3E 03 8A 01 06 D8 94 72 59 01 EB D9 DA DB
- B0 73 02 DC DB B5 73 02 73 04 DD DB B1 73 02 DE B2 B2 B0 DF B6 B4
- 6B 02 1F 73 01 6B 02 20 6B 02 1F 73 01 E0 B4 73 02 73 03 73 03 DB
- B1 73 02 59 04 19 09
- )
- "~S: missing function name and/or parameter list" DEFUN
- "~S: ~S is not a symbol." "~S: special form ~S cannot be redefined."
- DECLARE PROGN %PUT QUOTE 'DEFINITION %PUTD LABELS BLOCK FUNCTION
- )
- DO
- #Y(DO
- #153Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 71 93 1F 2C 01 02
- 36 01 6A A4 36 01 6A A4 AC 5B B2 2F 64 3E 02 9A 1F 3B 8B 08 7A 09
- 92 1F 15 92 54 1F 14 92 54 54 20 13 92 14 7B 06 16 01 1A 65 D4 D5
- 5A 01 92 1A 72 92 53 1A 6E 8B 00 93 54 70 73 02 7B 06 92 54 54 70
- 8B 01 AF 79 02 1F 05 16 01 1A 42 D6 5B D7 B0 6A 65 D8 97 72 D9 DA
- B1 73 02 B2 B1 DB B6 30 65 72 B4 DC 8B 13 DA B9 73 02 73 03 DD 5B
- DE 04 16 54 72 73 03 73 04 6B 02 20 6B 03 1F 73 04 59 03 19 0C
- )
- "exit clause in ~S must be a list" DO BLOCK LET DECLARE TAGBODY GO PSETQ
- OR RETURN-FROM PROGN
- )
- DOTIMES
- #Y(DOTIMES
- #67Y(00 02 00 00 00 03 94 54 53 70 95 54 53 54 70 96 54 53 54 54 70 97 54
- 71 A8 5B AF 2F 64 3E 02 36 01 6A A4 D4 AF D5 D6 B2 73 02 73 03 AA B0
- 73 02 73 02 D7 B1 AC 73 03 AF 73 02 D8 97 72 AE 31 04 1F 19 0A
- )
- DO 0. 1+ >= DECLARE
- ) )
- #Y(#:TOP-LEVEL-FORM-18 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defseq" LOAD)
- #Y(#:TOP-LEVEL-FORM-19 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "backquot" LOAD)
- #Y(#:TOP-LEVEL-FORM-20 #15Y(00 00 00 00 00 01 D4 D5 C0 72 30 96 3A 19 01)
- BACKQUOTE MACRO #Y(BACKQUOTE #12Y(00 01 00 01 00 08 94 54 54 53 19 03))
- )
- #Y(#:TOP-LEVEL-FORM-21 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defmacro" LOAD)
- #Y(#:TOP-LEVEL-FORM-22
- #21Y(00 00 00 00 00 01 D4 D5 C0 72 30 96 D7 D5 C2 72 30 96 3A 19 01)
- DEFMACRO MACRO
- #Y(DEFMACRO
- #87Y(00 01 00 01 00 08 8C 02 2D 00 3E 04 D5 D6 D7 D8 D9 AF 73 02 73 02 89
- 04 2E 00 14 DC D9 B1 73 02 DD DE B4 73 03 73 03 73 01 6B 02 20 6B 03
- 1F D6 DF E0 D9 B0 73 02 E1 D9 B6 73 02 73 04 73 03 D9 AE 73 02 59 04
- 19 07 DA D9 B0 73 02 DB D9 B0 73 02 73 04 59 01 1A 43
- )
- MAKE-MACRO-EXPANSION PROGN EVAL-WHEN (COMPILE LOAD EVAL)
- REMOVE-OLD-DEFINITIONS QUOTE %SET-DOCUMENTATION 'FUNCTION %PUTD CONS
- 'MACRO (EVAL) %PUT 'DEFINITION
- )
- DEFUN
- #Y(DEFUN
- #231Y(00 02 00 00 00 03 94 54 1F 13 94 54 70 86 2D 13 94 54 54 20 2D C1
- 14 D5 96 54 70 5A 02 D4 D5 8C 04 5A 02 C0 1A 70 DE AE 73 02 59 01
- 1A 80 6E 5D 16 DE B3 73 02 5D 17 DE B0 73 02 73 04 59 01 1A 80 6D
- 94 54 70 95 54 54 70 96 54 54 71 A8 5C AE 2F 64 3E 03 8A 01 06 D8
- 94 72 59 01 EB AC AA D9 B0 AE 6B 02 1F 73 01 31 02 20 72 DA DB DC
- DD DE B3 73 02 0E 0B 1C 25 0E 0C 1C 21 B3 63 0D E2 36 02 84 DC 18
- 0E 0F 1B 14 0E 10 1B 10 0E 11 1B 0C 0E 12 1B 08 63 13 63 14 85 28
- FF 8A 00 14 6B 02 1F 73 03 E9 DE B2 73 02 73 02 89 04 FF 81 00 14
- 5D 18 DE B4 73 02 5D 19 B5 9A 72 73 01 5D 1A B7 73 02 73 03 73 03
- DB 5D 1B 5D 1C DE B7 73 02 5D 1D DE BC 73 02 73 04 73 03 DE B5 73
- 02 73 03 6B 02 20 31 03 1F 19 0A
- )
- "~S: cannot define a function from that: ~S" DEFUN
- "~S: the name of a function must be a symbol, not ~S"
- "~S: function ~S is missing a lambda list" DECLARE BLOCK PROGN EVAL-WHEN
- (COMPILE) C-DEFUN QUOTE *COMPILING* *COMPILING-FROM-FILE*
- *INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV*
- *TOPLEVEL-DENV* REMOVE-OLD-DEFINITIONS %SET-DOCUMENTATION 'FUNCTION %PUTD
- LABELS FUNCTION (EVAL) %PUT 'DEFINITION
- ) )
- #Y(#:TOP-LEVEL-FORM-23
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) MACRO-EXPANDER
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(MACRO-EXPANDER #13Y(00 01 00 01 00 08 8C 02 A8 2D 00 19 04)
- MAKE-MACRO-EXPANSION
- ) )
- #Y(#:TOP-LEVEL-FORM-24 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "macros1" LOAD)
- #Y(#:TOP-LEVEL-FORM-25 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "macros2" LOAD)
- #Y(#:TOP-LEVEL-FORM-26 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defs1" LOAD)
- #Y(#:TOP-LEVEL-FORM-27 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "places" LOAD)
- #Y(#:TOP-LEVEL-FORM-28 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "floatpri" LOAD)
- #Y(#:TOP-LEVEL-FORM-29 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "type" LOAD)
- #Y(#:TOP-LEVEL-FORM-30 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defstruc" LOAD)
- #Y(#:TOP-LEVEL-FORM-31 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "format" LOAD)
- #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- SEARCH-FILE REMOVE-OLD-DEFINITIONS
- #Y(SEARCH-FILE
- #162Y(00 02 00 00 00 03 00 29 01 76 02 00 00 AB 30 12 51 14 8A 00 0A D4
- 60 02 00 31 00 17 0B 01 00 AC D5 36 01 78 17 04 5B D6 D7 AF 6A 10
- D8 36 02 83 DC 07 0E 05 72 5B 1A 80 62 00 1A 78 AE 65 06 01 A9 36
- 05 78 6F 00 8A 00 80 48 14 5B 1A 10 7E 01 00 14 90 07 94 54 54 53
- 6F 00 2F D3 7A 01 A9 84 B6 6C 16 02 DC A9 DD DE 36 02 6A 83 31 00
- 17 19 0A 7E 01 00 AF A9 36 01 6A 17 36 02 6A 17 A8 AC D8 36 02 83
- DC 11 A8 5C 6A 20 89 05 FF AE 89 00 FF B8 16 01 A8 7B 03 16 01 7A
- 01 A9 84 B6 52 00 19 08
- )
- #.#'PATHNAME-TYPE #".*" #"" :PARENT #.#'EQUAL *LOAD-PATHS*
- #Y(SEARCH-FILE-1
- #20Y(00 01 00 00 00 02 8B 01 6A 12 61 00 00 D5 36 02 2F DC 19 02) NIL
- #.#'STRING=
- )
- ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
- ) )
- #Y(#:TOP-LEVEL-FORM-33 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "user1" LOAD)
- #Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "user2" LOAD)
- #Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "trace" LOAD)
- #Y(#:TOP-LEVEL-FORM-36 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "config" LOAD)
- #Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "compiler" LOAD)
- #Y(#:TOP-LEVEL-FORM-38 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) "defs2" LOAD)
- #Y(#:TOP-LEVEL-FORM-39
- #19Y(00 00 00 00 00 01 D4 D5 83 FD 03 00 19 01 D6 2D 03 19 01) "MAKE-WINDOW"
- "SYSTEM" "screen" LOAD
- )
- #Y(#:TOP-LEVEL-FORM-40
- #18Y(00 00 00 00 00 01 D4 7F 01 03 00 19 01 D6 2D 03 19 01) "Load editor?"
- Y-OR-N-P "editor" LOAD
- )
- #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "USER")